﻿
Public Class SubCategoriaBLL

    Function ListaSubCategoria() As DataSet
        Dim obj As New SubCategoriaDAL

        Return obj.ListaSubCategoria()
    End Function

    Sub ExcluiSubCategoria(codSubCategoria As Integer)
        Dim obj As New SubCategoriaDAL

        obj.ExcluiSubCategoria(codSubCategoria)
    End Sub

    Sub InsereSubCategoria(objSubCategoria As SubCategoria)
        Dim obj As New SubCategoriaDAL

        obj.InsereSubCategoria(objSubCategoria)
    End Sub

    Sub AlteraSubCategoria(objSubCategoria As SubCategoria)
        Dim obj As New SubCategoriaDAL

        obj.AlteraSubCategoria(objSubCategoria)
    End Sub

End Class
